home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 011-020 / amok11 / r.o.m. / m2sources / mymathtrans.def < prev    next >
Text File  |  1993-11-04  |  3KB  |  57 lines
  1. DEFINITION MODULE MyMathTrans;
  2. (*
  3.   Created:   17.11.87
  4.   Changed:   20.2.88/25.8.88 by
  5.              Stefan Salewski
  6.              Stolper Weg 3
  7.              2160 Stade   West-Germany
  8.              Tel: 04141/61130
  9.              
  10.   Note: compiled with AMIGA Modula-2 System by AMSoft from 5.5.88
  11.    
  12.   This Module may be freely copied. But please
  13.   leave my name in. Thanks....Stefan  
  14. *)
  15.  
  16.   FROM SYSTEM IMPORT FFP;
  17.   (* errorNumber wird von den nachfolgenden Funktionsprozeduren genauso
  18.      behandelt wie von MyMathLibLong, d.h. errorNumber wird bei Fehlern
  19.      auf einen Wert # 0 gesetzt, nicht aber auf 0 gesetzt, wenn kein
  20.      Fehler auftrat.
  21.   *)
  22.  
  23.   CONST
  24.     Pi     =3.1415927;
  25.     PiHalbe=1.5707963;
  26.     
  27.   PROCEDURE NeutraleFunc(x:FFP):FFP; 
  28.   PROCEDURE Abs(x:FFP):FFP;
  29.   PROCEDURE Fac(x:FFP):FFP;     (* 51:fac(x) zu gross fuer x >= 20          *)
  30.   PROCEDURE Sqr(x:FFP):FFP;     (* 52:sqr(x) zu gross fuer x > 1E9          *)
  31.   PROCEDURE Power(x,y:FFP):FFP; 
  32.   (* Raise x to the y th power*)(* 4:Neg.Zahl hoch gebr.Zahl ist undefiniert*)
  33.   PROCEDURE SIN(x:FFP):FFP;     (*18:sin,cos und tan haben die Periode 2Pi  *)  
  34.   PROCEDURE COS(x:FFP):FFP;     (*18:sin,cos und tan haben die Periode 2Pi  *)
  35.   PROCEDURE Arctan(x:FFP):FFP;
  36.   PROCEDURE SINH(x:FFP):FFP;
  37.   PROCEDURE COSH(x:FFP):FFP;
  38.   PROCEDURE TANH(x:FFP):FFP;
  39.   PROCEDURE TAN(x:FFP):FFP;     (* 5:tan(n*(Pi/2) ist undefiniert           *)
  40.   PROCEDURE Cot(x:FFP):FFP;     (* 6:cot(n*Pi ist undefiniert               *)
  41.   PROCEDURE Sec(x:FFP):FFP;     (* 7:sec hat Pol bei x=n*Pi/2               *)
  42.   PROCEDURE Cosec(x:FFP):FFP;   (* 8:cosec hat Pol bei x=n*Pi               *)
  43.   PROCEDURE Arcsin(x:FFP):FFP;  (* 9:arcsin(x) undefiniert fuer |x|>0       *)
  44.   PROCEDURE Arccos(x:FFP):FFP;  (* 10:arccos(x) undefiniert fuer |x|>0      *) 
  45.   PROCEDURE Arccot(x:FFP):FFP;
  46.   PROCEDURE EXP(x:FFP):FFP;     (* 53:exp(x) zu gross fuer x>=42            *)
  47.   PROCEDURE Ln(x:FFP):FFP;      (* 12:ln(x) undefiniert fuer x<=0           *)
  48.   PROCEDURE LOG(x:FFP):FFP;     (* 13:log(x) undefiniert fuer x<=0          *)
  49.   PROCEDURE Coth(x:FFP):FFP;    (* 14:coth(x) undefiniert fuer x=0          *)
  50.   PROCEDURE Arsinh(x:FFP):FFP;
  51.   PROCEDURE Arcosh(x:FFP):FFP;  (* 15:arcosh(x) undefiniert fuer x>1        *)
  52.   PROCEDURE Artanh(x:FFP):FFP;  (* 16:artanh(x) undefiniert fuer |x|>=1     *)
  53.   PROCEDURE SQRT(x:FFP):FFP;    (* 17:sqrt(x) undefiniert fuer x<0          *)
  54.   PROCEDURE Arcoth(x:FFP):FFP;  (* 19:Arcoth(x) undefiniert fuer |x|<1.0    *)
  55.   PROCEDURE Int(x:FFP):FFP;     (* 20:Int(x) nur erlaubt fuer |x|<2147483648*)
  56. END MyMathTrans.def
  57.